1 IFL=0THENL=1:LOAD"SCRAMBLE.49152",8,1
100 REM DEMO PROGRAM FOR SCRAMBLER
110 REM (ASSUMES MACHINE LANGUAGE)
120 REM (ROUTINE ALREADY LOADED)
121 :
130 PRINTCHR$(147):POKE53272,23
140 POKE53280,0:POKE53281,0
150 PRINTCHR$(5)
155 TE$=""
160 PRINT"[208]HRASE TO [211]CRAMBLE:":PRINT"       [ENTER 'QUIT' TO EXIT]"
170 INPUTTE$
175 IFTE$="QUIT"ORTE$=""THEN60000
180 PRINT"[203]EYWORD:"
190 INPUTKE$
195 KE$=KE$+"":REM NOTE THIS OPERATION
200 PRINTCHR$(18)"[195][204][197][193][210][212][197][216][212]:"
210 PRINTTEXT$:PRINT
220 PRINTCHR$(158)
230 PRINTCHR$(18)"[211][195][210][193][205][194][204][197][196]:"
250 SYS49152,0,KEY$,TEXT$
260 PRINTTEXT$:PRINT
270 PRINTCHR$(159)
280 PRINTCHR$(18)"[196][197][195][207][196][197][196]:  "
300 SYS49152,1,KEY$,TEXT$
310 PRINTTEXT$:PRINT
320 GOTO150
60000 PRINT"[147]LOAD"CHR$(34)"SCRAMBLER"CHR$(34)",8":PRINT"RUN"
60002 POKE631,13:POKE632,13:POKE198,2:        END